home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Space & Astronomy
/
Space and Astronomy (October 1993).iso
/
mac
/
VIEWERS
/
MSDOS
/
MAC2GIF.ZIP
/
VGABLD.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-05-12
|
948b
|
39 lines
' $STATIC
ON ERROR GOTO HelpScrn
DIM CPal%(777)
DACseg% = VARSEG(CPal%(1))
DACptr% = VARPTR(CPal%(1))
c$ = COMMAND$
IF c$ = "" THEN GOSUB HelpScrn
SCREEN 13
DEF SEG = DACseg%
BLOAD c$ + ".plt", DACptr%
DEF SEG
CALL WritePAL(DACseg%, DACptr%)
DEF SEG = &HA000
BLOAD c$ + ".bld", 0
DEF SEG
a$ = INPUT$(1)
END
HelpScrn:
SCREEN 11
CLS : BEEP
PRINT "┌───────────────────────────────────────────┐"
PRINT "│ VGABLoaD Copr. (c) 1988 │"
PRINT "│ Lawrence Gozum & Marvin Gozum │"
PRINT "└───────────────────────────────────────────┘"
PRINT "QuickBASIC 4.0 (c) 1982-87 Microsoft (R) Corp."
PRINT
PRINT " Syntax: VGABLOAD [filename] "
PRINT
PRINT " DO NOT INCLUDE EXTENSION !"
PRINT " Screen has extension .BLD for BLoaD."
PRINT " Palette has extension .PLT for PaLeTte."
PRINT
PRINT " Press any key to continue."
a$ = INPUT$(1)
END